10 POKE53280,1:POKE53281,1:POKE53272,21:CLR:REM C64 MODS 1983 BY WIM
20 PRINT"[144][147]"
30 POKE46,64
40 POKE72,64
50 POKE50,64:CLR
60 C$=CHR$(13):P$=CHR$(34)
70 N$=""
80 PRINT"          LOADING DIRECTORY"
90 PRINT"           --PLEASE WAIT--"
100 DIM F$(155)
110 FOR J=0TO 49
120 F$(J)=""
130 NEXT
140 J=0
150 OPEN 8,8,0,"$0"
160 GOSUB 420
170 PRINT"[145][145][145][145][145][145]                 FOR"
180 PRINT"           ";F$(0);"[146]"
190 J=1
200 GOSUB 420
210 F$(1)=""
220 EF=0
230 GOSUB 420
240 IF EF=0 THEN J=J+1:GOTO 230
250 T=J-1
260 CLOSE8
270 PRINT"[147]"
280 J=1:EF=0
290 GOSUB 500
300 IF EF=0 GOTO 290
310 PRINT
320 PRINT"PRESS RETURN KEY TO SEE NEXT DISK OR"
330 PRINT"CHOOSE A PROGRAM ( 1 TO ";T;")";
340 INPUT"[160][160][160][160][157][157][157]";A$:N=VAL(A$)
350 IF N>0 AND N<=T GOTO 400
360 PRINT"[147]PUT NEW DISK IN DRIVE #0 AND"
370 PRINT"PRESS RETURN KEY WHEN DONE[160][160][160][160][160][160][157][157][157][157][157]";:INPUTA$
380 OPEN15,8,15:PRINT#15,"I0"
390 RUN
400 PRINT"[147]LOADING  ";F$(N);"[146]"
410 LOAD F$(N),8
420 GET#8,A$:IFA$<>N$THEN420
430 GET#8,A$:IFA$<>N$THEN460
440 GET#8,A$:IFA$<>N$THEN460
450 GET#8,A$:IFA$=N$THENEF=1:RETURN
460 IFA$<>P$THEN430
470 GET#8,A$:IFA$=P$THEN490
480 F$(J)=F$(J)+A$:GOTO470
490 RETURN
500 JA$=STR$(J):JB$=STR$(J+1)
510 PRINT "";RIGHT$(JA$,2);"[146]";TAB(3);F$(J);
520 IF(J=35)OR(J=75)OR(J=115)THENGOSUB1000
525 IF F$(J+1)=""THEN PRINT:GOTO 540
530 PRINTTAB(20);"";RIGHT$(JB$,2);"[146]";TAB(23);F$(J+1)
540 IF J>T-2 THEN EF=1
550 J=J+2
560 RETURN
1000 PRINT:PRINT"C[146]ONTINUE OR S[146]ELECT?"
1010 GETAA$:IFAA$="C"THENPRINT"[147]":RETURN
1020 IFAA$="S"THEN310
1030 GOTO1010